;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;Sets sysvars SNAPANG and SNAPBASE from picked points
(DEFUN c:ssnap ()
  (SETVAR "SNAPANG"
          (ANGLE (SETQ bsapt (upoint 1 "" "Base point" nil nil) ;_ end of UPOINT
                 ) ;_ end of setq
                 (upoint 1 "" "Point on either axis (snap 'per' to align with objects)" nil bsapt)
          ) ;_ end of ANGLE
  ) ;_ end of SETVAR
  (SETVAR "SNAPBASE" (LIST (CAR bsapt)(CADR bsapt)))
  (PRINC)
) ;_ end of DEFUN
